home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g10.bas < prev    next >
BASIC Source File  |  1991-10-18  |  385b  |  15 lines
  1. 100 ' G10 T.WAKAMATSU 
  2. 110 DIM C(14)
  3. 120 FOR I=1 TO 14:READ C(I):NEXT I
  4. 130 DATA 1,5,2,3,4,6,3,1,5,4,2,7,0,0
  5. 140 CLS
  6. 150 FOR N=1 TO 13 STEP 2
  7. 160   FOR X=0 TO 235 STEP 5
  8. 170     LINE(X+85,235-X)-(560-X,240+X),PSET,C(N),B
  9. 180     Y=235-X
  10. 190     LINE(Y+85,235-Y)-(560-Y,240+Y),PSET,C(N+1),B
  11. 200     FOR D=1 TO 265:NEXT D
  12. 210   NEXT X
  13. 220 NEXT N
  14. 230 FOR D=1 TO 6000:NEXT D
  15.